﻿Public Class ucmenu

    Public Delegate Sub PingPong(ByVal b As Boolean)
    Public them As PingPong


    Private Sub btnthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthem.Click
        Dim ding As Boolean = True
        If (IsNothing(them) = False) Then
            them(ding)
        End If
    End Sub

End Class
